Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim documentURL Dim dlFileName documentURL = http://...
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim smtp As New System.Net.Mail.SmtpClient(smtp.126.com, 25) smt...
Dim currentline As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (RichTextBox1.Line...
Public Function GetFileName(ByVal FilePathFileName As String) As String 获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J As Integer i = Len(FilePathFileNa...